object Form3: TForm3 Left = 300 Top = 145 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsNone Caption = 'MP3 Playlist' ClientHeight = 335 ClientWidth = 382 Color = clNavy Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PrintScale = poNone Scaled = False OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object tmpplselected: TImage Left = 256 Top = 368 Width = 97 Height = 33 Picture.Data = {} end object plselected: TImage Left = 56 Top = 368 Width = 25 Height = 17 end object allpic: TImage Left = 416 Top = 184 Width = 41 Height = 17 Picture.Data = {} end object DropPanel1: TDropPanel Left = 2 Top = 2 Width = 378 Height = 337 BevelOuter = bvNone Caption = 'DropPanel1' Color = clNavy TabOrder = 0 OnFileDrop = DropPanel1FileDrop object plmain: TImage Left = 0 Top = 0 Width = 378 Height = 90 AutoSize = True PopupMenu = Popup Stretch = True OnMouseDown = plmainMouseDown OnMouseMove = plmainMouseMove OnMouseUp = plmainMouseUp end object Image1: TImage Left = 0 Top = 313 Width = 378 Height = 20 Picture.Data = {} OnMouseMove = Image1MouseMove end object saveimg: TImage Left = 11 Top = 54 Width = 40 Height = 24 OnClick = saveimgClick OnMouseMove = saveimgMouseMove end object addimg: TImage Left = 61 Top = 54 Width = 40 Height = 24 OnClick = addimgClick OnMouseMove = addimgMouseMove end object delimg: TImage Left = 111 Top = 54 Width = 40 Height = 24 OnClick = delimgClick OnMouseMove = delimgMouseMove end object playimg: TImage Left = 161 Top = 54 Width = 40 Height = 24 OnClick = playimgClick OnMouseMove = playimgMouseMove end object upimg: TImage Left = 211 Top = 54 Width = 40 Height = 24 OnClick = upimgClick OnMouseMove = upimgMouseMove end object downimg: TImage Left = 261 Top = 54 Width = 40 Height = 24 OnClick = downimgClick OnMouseMove = downimgMouseMove end object ximg: TImage Left = 344 Top = 54 Width = 22 Height = 24 OnClick = ximgClick OnMouseMove = ximgMouseMove end object playlisttext: TLabel Left = 196 Top = 315 Width = 177 Height = 15 Alignment = taRightJustify AutoSize = False Caption = 'No Songs' Color = clMaroon Font.Color = 16761024 Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False Transparent = True end object editpic: TImage Left = 4 Top = 316 Width = 25 Height = 14 OnClick = editpicClick OnMouseMove = editpicMouseMove end object effectpic: TImage Left = 32 Top = 316 Width = 41 Height = 14 OnClick = effectpicClick OnMouseMove = effectpicMouseMove end object trackpic: TImage Left = 84 Top = 316 Width = 47 Height = 14 Hint = 'Rename a CD-Track' ParentShowHint = False ShowHint = True OnClick = trackpicClick OnMouseMove = trackpicMouseMove end object playlist: TListBox Left = 0 Top = 90 Width = 378 Height = 224 BorderStyle = bsNone Color = clBlack DragMode = dmAutomatic Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 MultiSelect = True ParentFont = False Style = lbOwnerDrawVariable TabOrder = 1 OnDblClick = playlistDblClick OnKeyPress = playlistKeyPress OnMouseMove = playlistMouseMove end object cdbox: TListBox Left = 0 Top = 90 Width = 378 Height = 224 BorderStyle = bsNone Color = clBlack ExtendedSelect = False Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 ParentFont = False Style = lbOwnerDrawVariable TabOrder = 0 Visible = False OnDblClick = cdboxDblClick OnKeyPress = cdboxKeyPress OnMouseMove = cdboxMouseMove end end object Openpldialog: TOpenDialog FileEditStyle = fsEdit Filter = 'MPx and Playlist Files|*.mp1;*.mp2;*.mp3;*.m3u;*.dmp;*.pls' Options = [ofAllowMultiSelect, ofPathMustExist, ofFileMustExist] Title = 'Open MPx or Playlist' Left = 272 Top = 8 end object SaveDialog: TSaveDialog DefaultExt = '*.m3u' FileEditStyle = fsEdit Filter = 'Playlists (m3u)|*.m3u;*.pls' Options = [ofOverwritePrompt] Title = 'Save Playlist' Left = 312 Top = 8 end object PopupMenu: TPopupMenu AutoPopup = False Left = 40 Top = 8 object fd1: TMenuItem Caption = 'File(s)...' ShortCut = 0 OnClick = fd1Click end object Dirs: TMenuItem Caption = 'Directories...' ShortCut = 0 OnClick = DirsClick end object URL1: TMenuItem Caption = 'URL...' ShortCut = 0 OnClick = URL1Click end end object BrowseDialog: TBrowseDialog Caption = 'Select MP3 Folder to Add' Options = [] Left = 72 Top = 8 end object Popup: TPopupMenu AutoPopup = False Left = 168 Top = 8 object ClearPlaylist1: TMenuItem Caption = 'All Songs' ShortCut = 0 OnClick = ClearPlaylist1Click end object Randomize1: TMenuItem Caption = 'Selected Songs' ShortCut = 0 OnClick = Randomize1Click end object AllbutSelected1: TMenuItem Caption = 'All but Selected' ShortCut = 0 OnClick = AllbutSelected1Click end end object filepopup: TPopupMenu Left = 122 Top = 10 object LoadPlaylist1: TMenuItem Caption = 'Load Playlist...' ShortCut = 0 OnClick = LoadPlaylist1Click end object SavePlaylist1: TMenuItem Caption = 'Save Playlist...' ShortCut = 0 OnClick = SavePlaylist1Click end end object Openplaylist: TOpenDialog FileEditStyle = fsEdit Filter = 'Playlist Files|*.m3u;*.pls;*.dmp' Options = [ofFileMustExist] Title = 'Load Playlist File' Left = 226 Top = 10 end object EditPopup: TPopupMenu Left = 170 Top = 306 object SelectAll1: TMenuItem Caption = 'Select All' ShortCut = 0 OnClick = SelectAll1Click end object SelectNone1: TMenuItem Caption = 'Select None' ShortCut = 0 OnClick = SelectNone1Click end object InvertSelection1: TMenuItem Caption = 'Invert Selection' ShortCut = 0 OnClick = InvertSelection1Click end end object effectPopup: TPopupMenu Left = 202 Top = 306 object Randomize2: TMenuItem Caption = 'Randomize' ShortCut = 0 OnClick = Randomize2Click end object Reverse1: TMenuItem Caption = 'Reverse' ShortCut = 0 OnClick = Reverse1Click end object ID3Tag1: TMenuItem Caption = 'ID3 Tag' ShortCut = 0 OnClick = ID3Tag1Click end end end